home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Sample Code / 7Edit 3.1 / Sources / SVAERecording.c < prev    next >
Encoding:
Text File  |  1995-11-20  |  29.9 KB  |  1,223 lines  |  [TEXT/CWIE]
  1. // SVAERecording.c
  2. //
  3. // 7Edit 3.1d1. Original version by Jon Lansdell and Nigel Humphreys.
  4. // 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1995, all rights reserved.
  6.  
  7. #include "SVAERecording.h"
  8.  
  9. #include "SVEditAEUtils.h"
  10. #include "SVEditUtils.h"
  11. #include "SVAEWindowUtils.h"
  12. #include "SVAETextUtils.h"
  13. #include "SVAppleEvents.h"
  14.  
  15. #include <AEPackObject.h>
  16.  
  17.  
  18.  
  19. static short   gBigBrother;
  20. static char    *gTypingBuffer;
  21. static short   gCharsInBuffer;
  22. static AEDesc  gTypingTargetObject;
  23.  
  24. OSErr    InstallRecordingHandlers(void)
  25. {
  26.     OSErr    err;
  27.     
  28.     gBigBrother = 0;
  29.     gCharsInBuffer = 0;
  30.     gTypingBuffer = (char *)NewPtr(32000);
  31.     gTypingTargetObject.dataHandle = 0;
  32.     
  33.     err = AEInstallEventHandler( kCoreEventClass, kAENotifyStartRecording, NewAEEventHandlerProc(HandleStartRecording), noRefCon, false);
  34.     err = AEInstallEventHandler( kCoreEventClass, kAENotifyStopRecording, NewAEEventHandlerProc(HandleStopRecording), noRefCon, false);
  35.  
  36.     return(err);
  37. }
  38.  
  39. pascal OSErr HandleStartRecording(const AppleEvent *theAppleEvent,
  40.                                                           AppleEvent *reply,
  41.                                                           long       handlerRefCon)        
  42. {
  43. #pragma unused (reply,handlerRefCon)
  44.  
  45.     OSErr myErr;
  46.  
  47.     gBigBrother++;
  48.  
  49.     myErr = GotRequiredParams(theAppleEvent);
  50.  
  51.     return(myErr);
  52.     
  53. } // HandleStartRecording
  54.  
  55. pascal OSErr HandleStopRecording(const AppleEvent *theAppleEvent,
  56.                                                          AppleEvent *reply,
  57.                                                              long handlerRefCon)        
  58. {
  59. #pragma unused (theAppleEvent,reply,handlerRefCon)
  60.  
  61.     gBigBrother--;
  62.     return(noErr);
  63. } // HandleStopRecording
  64.  
  65.  
  66. // Make an object specifier for a window given the WindowPtr
  67.  
  68. OSErr    MakeWindowObj(WindowPtr theWindow, AEDesc *result)
  69. {
  70.     AEDesc    nullDesc = {typeNull, NULL},
  71.             absoluteDesc = {typeNull, NULL};
  72.     long    windowIndex;
  73.     OSErr    err;
  74.     
  75.     windowIndex = GetNthWindowOfWindowPtr(theWindow);
  76.     if (! windowIndex)
  77.         return(errAENoSuchObject);
  78.     
  79.     err = AECreateDesc(typeInteger,(Ptr)&windowIndex, sizeof(windowIndex), &absoluteDesc);
  80.     if (noErr != err) goto done;
  81.     
  82.     err = CreateObjSpecifier(cWindow, &nullDesc, formAbsolutePosition,
  83.                                                 &absoluteDesc, false, result);
  84.  
  85. done:
  86.     if (absoluteDesc.dataHandle)
  87.         AEDisposeDesc(&absoluteDesc);
  88.     
  89.     return(err);
  90. } // MakeWindowObj
  91.  
  92. // Make an object specifier for a document given the WindowPtr
  93.  
  94. OSErr    MakeDocumentObj(WindowPtr theWindow, AEDesc *result)
  95. {
  96.     AEDesc    nullDesc = {typeNull, NULL},
  97.             absoluteDesc = {typeNull, NULL};
  98.     long    windowIndex;
  99.     OSErr    err;
  100.     
  101.     windowIndex = GetNthWindowOfWindowPtr(theWindow);
  102.     if (! windowIndex)
  103.         return(errAENoSuchObject);
  104.     
  105.     err = AECreateDesc(typeInteger,(Ptr)&windowIndex, sizeof(windowIndex), &absoluteDesc);
  106.     if (noErr != err) goto done;
  107.     
  108.     err = CreateObjSpecifier(cDocument, &nullDesc, formAbsolutePosition,
  109.                                                 &absoluteDesc, false, result);
  110.  
  111. done:
  112.     if (absoluteDesc.dataHandle)
  113.         AEDisposeDesc(&absoluteDesc);
  114.     
  115.     return(err);
  116. } // MakeDocumentObj
  117.  
  118.  
  119. OSErr    MakeTextObjFromToken(TextToken* theToken, AEDesc* result)
  120. {
  121.     OSErr    err;
  122.  
  123.     err = GetTextTokenObjectSpecifier(theToken, result);
  124.     
  125.     return(err);
  126. }
  127.  
  128.  
  129. OSErr    MakeSelectedTextObj(WindowPtr theWindow, TEHandle theTextEditHandle, AEDesc* result)
  130. {
  131.     return( MakeTextObj(theWindow, (**theTextEditHandle).selStart,
  132.                             (**theTextEditHandle).selEnd, result));
  133. } // MakeSelectedTextObj
  134.  
  135.  
  136. OSErr    MakeTextObj(WindowPtr theWindow, short selStart, short selEnd, AEDesc* result)
  137. {
  138.     TextToken    aToken;
  139.     OSErr        err;
  140.     
  141.     aToken.tokenWindow = theWindow;
  142.     aToken.tokenOffset = selStart + 1;
  143.     aToken.tokenLength = selEnd - selStart;
  144.  
  145.     err = MakeTextObjFromToken(&aToken, result);
  146.  
  147.     return(err);
  148. }
  149.  
  150. OSErr    SendSelectionEvent(DPtr docPtr)
  151. {
  152.     AEAddressDesc    ourAddress = {typeNull, NULL};
  153.     AppleEvent        selectEvent = {typeNull, NULL},
  154.                     ignoreReply = {typeNull, NULL};
  155.     AEDesc            textObj = {typeNull, NULL};
  156.     OSErr            err;
  157.  
  158.  
  159.     err = MakeSelfAddress(&ourAddress);
  160.     if (noErr != err) goto done;
  161.     
  162.         // Build an object to represent the current document's selection
  163.         // MakeSelectedTextObj
  164.     err = MakeSelectedTextObj(docPtr->theWindow, docPtr->theText, &textObj);
  165.     if (noErr != err) goto done;
  166.     
  167.     err = AECreateAppleEvent(kAEMiscStandards, kAESelect, &ourAddress, 0, 0, &selectEvent);    
  168.     if (noErr != err) goto done;
  169.     
  170.         // add parameter
  171.     err = AEPutParamDesc(&selectEvent, keyDirectObject, &textObj);
  172.     if (noErr != err) goto done;
  173.                     
  174.         // and now send the message
  175.     err = AESend(&selectEvent, &ignoreReply, kAENoReply, kAEHighPriority, kAEDefaultTimeout, NULL, NULL);
  176.     if (noErr != err) goto done;
  177.  
  178. done:    
  179.     if (ourAddress.dataHandle) 
  180.         AEDisposeDesc(&ourAddress);
  181.     if (selectEvent.dataHandle) 
  182.         AEDisposeDesc(&selectEvent);
  183.     if (ignoreReply.dataHandle) 
  184.         AEDisposeDesc(&ignoreReply);
  185.     if (textObj.dataHandle) 
  186.         AEDisposeDesc(&textObj);
  187.  
  188.     return(err);
  189. }
  190.  
  191. void    DoEditCommand(DPtr theDocument, editCommandType whatCommand)
  192. {
  193.     AEAddressDesc    ourAddress = {typeNull, NULL};
  194.     AppleEvent        editCommandEvent = {typeNull, NULL},
  195.                     ignoreReply = {typeNull, NULL};
  196.     AEEventID        theEventID;
  197.     AEEventClass    theEventClass;
  198.     OSErr            err;
  199.     
  200.     err = SendSelectionEvent(theDocument);
  201.     if (noErr != err) goto done;
  202.  
  203.         // Now create and send the appropriate cut, copy, paste or clear AppleEvent
  204.     
  205.     switch (whatCommand)
  206.     {
  207.         case  editCutCommand:
  208.             theEventID = kAECut;
  209.             theEventClass = kAEMiscStandards;
  210.             break;
  211.             
  212.         case  editCopyCommand:
  213.             theEventID = kAECopy;
  214.             theEventClass = kAEMiscStandards;
  215.             break;
  216.  
  217.         case  editPasteCommand:
  218.             theEventID = kAEPaste;
  219.             theEventClass = kAEMiscStandards;
  220.             break;
  221.  
  222.         case  editClearCommand:
  223.             theEventID = kAEDelete;
  224.             theEventClass = kAECoreSuite;
  225.             break;
  226.     }
  227.     
  228.     err = MakeSelfAddress(&ourAddress);
  229.     if (noErr != err) goto done;
  230.             
  231.     err = AECreateAppleEvent(theEventClass, theEventID, &ourAddress, 0, 0, &editCommandEvent);    
  232.     if (noErr != err) goto done;
  233.             
  234.         // and now Send the message
  235.     err = AESend(&editCommandEvent, &ignoreReply, kAENoReply, kAEHighPriority, kAEDefaultTimeout, NULL, NULL);
  236.         
  237. done:
  238.     if (ourAddress.dataHandle) 
  239.         AEDisposeDesc(&ourAddress);
  240.     if (editCommandEvent.dataHandle) 
  241.         AEDisposeDesc(&editCommandEvent);
  242.     if (ignoreReply.dataHandle) 
  243.         AEDisposeDesc(&ignoreReply);
  244.  
  245. } // DoEditCommand
  246.  
  247. void    IssueCutCommand(DPtr theDocument)
  248. {            
  249.     DoEditCommand(theDocument, editCutCommand);
  250. } 
  251.  
  252. void    IssueCopyCommand(DPtr theDocument)
  253. {
  254.     DoEditCommand(theDocument, editCopyCommand);
  255. }
  256.  
  257. void    IssuePasteCommand(DPtr theDocument)
  258. {
  259.     DoEditCommand(theDocument, editPasteCommand);    
  260. }
  261.  
  262. void    IssueClearCommand(DPtr theDocument)
  263. {
  264.     DoEditCommand(theDocument, editClearCommand);    
  265. }
  266.  
  267. // ---------------------------------------------------------------------
  268. //    Name :         SendAESetObjProp
  269. //    Function :    Creates a property object from an object,
  270. //                a property type and its data and sends it to
  271. //                the requested address, and cleans up zapping params too
  272. // ---------------------------------------------------------------------
  273.  
  274. OSErr    SendAESetObjProp(AEDesc *theObj, DescType theProp, AEDesc *theData, AEAddressDesc *toWhom)
  275. {
  276.     AEDesc        propObjSpec;
  277.     AppleEvent    myAppleEvent;
  278.     AppleEvent    defReply;
  279.     OSErr        myErr;
  280.     OSErr        ignoreErr;
  281.     AEDesc        theProperty;
  282.         
  283.     // create an object spec that represents the property of the given object
  284.     
  285.     myErr = AECreateDesc(typeType, (Ptr)&theProp, sizeof(theProp), &theProperty);
  286.     if (myErr==noErr)
  287.         myErr = CreateObjSpecifier(cProperty, theObj, formPropertyID,
  288.                                         &theProperty, true, &propObjSpec);    
  289.         
  290.     // create event
  291.     
  292.     if (myErr==noErr)
  293.         myErr = AECreateAppleEvent(kAECoreSuite, kAESetData, toWhom, 0, 0, &myAppleEvent);
  294.         
  295.     // add prop obj spec to the event
  296.     
  297.     if (myErr==noErr)
  298.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &propObjSpec);
  299.     
  300.     // add prop data to the event
  301.     
  302.     if (myErr==noErr)
  303.         myErr = AEPutParamDesc(&myAppleEvent,keyAEData, theData);
  304.     
  305.     // send event
  306.     
  307.     if (myErr==noErr)
  308.         myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract,
  309.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  310.     
  311.     if (myAppleEvent.dataHandle)
  312.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  313.         
  314.     if (&propObjSpec.dataHandle)
  315.       ignoreErr = AEDisposeDesc(&propObjSpec);
  316.     
  317.     if (theData->dataHandle)
  318.         ignoreErr = AEDisposeDesc(theData);
  319.     
  320.     if (toWhom->dataHandle)
  321.         ignoreErr = AEDisposeDesc(toWhom);
  322.     
  323.     return(myErr);
  324. } // SendAESetObjProp
  325.  
  326.  
  327. void    IssueFontCommand(DPtr theDocument, short theItem)
  328. {
  329.     Str255            name;
  330.     AEDesc            strDesc;
  331.     AEAddressDesc    theAddress;
  332.     AEDesc            selTextObj;
  333.     OSErr            err;
  334.         
  335.     err = MakeSelfAddress(&theAddress);
  336.     
  337.     err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);
  338.     
  339.     GetItem(myMenus[fontM], theItem, name);
  340.     
  341.     if (err==noErr)
  342.         err  = AECreateDesc(typeChar, (Ptr)&name[1], name[0], &strDesc);
  343.     
  344.     if (err==noErr)
  345.         err  = SendAESetObjProp(&selTextObj, pFont, &strDesc, &theAddress);                                                            
  346. }
  347.  
  348. // Window property routines
  349.  
  350. void    IssueZoomCommand(WindowPtr whichWindow, short whichPart)
  351. {
  352.     Boolean       zoomBool;
  353.     AEDesc        zoomDesc;
  354.     AEAddressDesc selfAddr;
  355.     AEDesc        frontWinObj;
  356.     OSErr         err;
  357.  
  358.     err = MakeSelfAddress(&selfAddr);
  359.     
  360.     err = MakeWindowObj(whichWindow, &frontWinObj);
  361.     
  362.     zoomBool = (whichPart==inZoomOut);
  363.  
  364.     err = AECreateDesc(typeBoolean, (Ptr)&zoomBool, sizeof(zoomBool), &zoomDesc);
  365.                                             
  366.     err = SendAESetObjProp(&frontWinObj, pIsZoomed, &zoomDesc, &selfAddr);                                                            
  367. } // IssueZoomCommand
  368.  
  369. void    IssueCloseCommand(WindowPtr whichWindow)
  370. {
  371.     AEAddressDesc  selfAddr;
  372.     AEDesc         frontWinObj;
  373.     OSErr          err;
  374.     OSErr          ignoreErr;
  375.     AppleEvent     closeCommandEvent;
  376.     AppleEvent     ignoreReply;
  377.  
  378.     frontWinObj.dataHandle = nil;
  379.     
  380.     err = MakeSelfAddress(&selfAddr);
  381.     
  382.     err = MakeWindowObj(whichWindow, &frontWinObj);
  383.                                                         
  384.     err = AECreateAppleEvent( kAECoreSuite, kAEClose, &selfAddr, 0, 0, &closeCommandEvent) ;                
  385.     
  386.     // add parameter - the window to close    
  387.     if (err==noErr) 
  388.         err = AEPutParamDesc(&closeCommandEvent, keyDirectObject, &frontWinObj);
  389.         
  390.     if (err==noErr) 
  391.         err = AESend(&closeCommandEvent,&ignoreReply,kAENoReply+kAEAlwaysInteract,kAEHighPriority,10000,nil, nil);
  392.     
  393.     if (closeCommandEvent.dataHandle) 
  394.         ignoreErr = AEDisposeDesc(&closeCommandEvent);
  395.     
  396.     if (selfAddr.dataHandle) 
  397.         ignoreErr = AEDisposeDesc(&selfAddr);
  398.         
  399.     if (frontWinObj.dataHandle) 
  400.         ignoreErr = AEDisposeDesc(&frontWinObj);
  401.         
  402. } // IssueCloseCommand
  403.  
  404. void    IssueSizeWindow(WindowPtr whichWindow, short newHSize, short newVSize)
  405. {
  406.     Rect          sizeRect;
  407.     Rect          contentRect;
  408.     short         edgeSize;
  409.     AEDesc        sizeDesc;
  410.     AEAddressDesc selfAddr;
  411.     AEDesc        frontWinObj;
  412.     OSErr         err;
  413.  
  414.     sizeRect    = (**(((WindowPeek)whichWindow)->strucRgn)).rgnBBox;
  415.     contentRect = (**(((WindowPeek)whichWindow)->contRgn)).rgnBBox;
  416.     
  417.     edgeSize = sizeRect.right-sizeRect.left-(contentRect.right-contentRect.left);
  418.     sizeRect.right = sizeRect.left+newHSize+edgeSize;
  419.     
  420.     edgeSize = sizeRect.bottom-sizeRect.top-(contentRect.bottom-contentRect.top);
  421.     sizeRect.bottom = sizeRect.top+newVSize+edgeSize;
  422.     
  423.     err = MakeSelfAddress(&selfAddr);
  424.     
  425.     err = MakeWindowObj(whichWindow, &frontWinObj);
  426.     
  427.     if (err==noErr)
  428.         err = AECreateDesc(typeQDRectangle, (Ptr)&sizeRect, sizeof(sizeRect), &sizeDesc);
  429.     
  430.     if (err==noErr)
  431.         err  = SendAESetObjProp(&frontWinObj, pBounds, &sizeDesc, &selfAddr);                                                            
  432. } // IssueSizeWindow
  433.  
  434. void    IssueMoveWindow(WindowPtr whichWindow, Rect sizeRect)
  435. {
  436.     AEDesc        sizeDesc;
  437.     AEAddressDesc selfAddr;
  438.     AEDesc        frontWinObj;
  439.     OSErr         err;
  440.  
  441.     err = MakeSelfAddress(&selfAddr);
  442.     
  443.     err = MakeWindowObj(whichWindow, &frontWinObj);
  444.         
  445.     if (err==noErr)
  446.         err = AECreateDesc(typeQDRectangle, (Ptr)&sizeRect, sizeof(sizeRect), &sizeDesc);
  447.     
  448.     if (err==noErr)        
  449.         err = SendAESetObjProp(&frontWinObj, pBounds, &sizeDesc, &selfAddr);                                                            
  450. } // IssueMoveWindow
  451.  
  452. void    IssuePageSetupWindow(WindowPtr whichWindow, TPrint thePageSetup)
  453. {
  454.     AEDesc        sizeDesc;
  455.     AEAddressDesc selfAddr;
  456.     AEDesc        frontWinObj;
  457.     OSErr         err;
  458.  
  459.     err = MakeSelfAddress(&selfAddr);
  460.     
  461.     err = MakeWindowObj(whichWindow, &frontWinObj);
  462.     
  463.     if (err==noErr)
  464.         err = AECreateDesc(typeTPrint, (Ptr)&thePageSetup, sizeof(thePageSetup), &sizeDesc);
  465.                                              
  466.     if (err==noErr)
  467.         err = SendAESetObjProp(&frontWinObj, pPageSetup, &sizeDesc, &selfAddr);                                                            
  468.                                                  
  469. } //IssuePageSetupWindow
  470.  
  471.  
  472. void IssueGXPageSetupWindow(WindowPtr whichWindow, gxJob thGXJob)
  473. {
  474.     AEDesc        sizeDesc;
  475.     AEAddressDesc selfAddr;
  476.     AEDesc        frontWinObj;
  477.     OSErr         err;
  478.     Handle        thePGXHandle;
  479.  
  480.     // Flatten the gxJob to a handle
  481.  
  482.     thePGXHandle = NewHandle(0);
  483.     GXFlattenJobToHdl(thGXJob, thePGXHandle);
  484.  
  485.     err = MakeSelfAddress(&selfAddr);
  486.     
  487.     err = MakeWindowObj(whichWindow, &frontWinObj);
  488.     
  489.     if (err==noErr)
  490.         err = AECreateDesc(typeTPrint, (Ptr)*thePGXHandle,
  491.                                 GetHandleSize (thePGXHandle), &sizeDesc);
  492.                                              
  493.     if (err==noErr)
  494.         err = SendAESetObjProp(&frontWinObj, pGXPageSetup, &sizeDesc, &selfAddr);                                                            
  495.  
  496.     DisposeHandle( thePGXHandle );                                             
  497. } // IssueGXPageSetupWindow
  498.  
  499.  
  500. void IssuePrintWindow(WindowPtr whichWindow, Boolean useDialog)
  501. {
  502.     AEAddressDesc selfAddr;
  503.     AEDesc        frontWinObj;
  504.     OSErr         err;
  505.     OSErr         ignoreErr;
  506.     AppleEvent    printCommandEvent;
  507.     AppleEvent    ignoreReply;
  508.     AESendMode    sendModeFlags;
  509.  
  510.     err = MakeSelfAddress(&selfAddr);
  511.     
  512.     err = MakeWindowObj(whichWindow, &frontWinObj);
  513.                                                         
  514.     err = AECreateAppleEvent(kCoreEventClass, kAEPrintDocuments, &selfAddr, 0, 0, &printCommandEvent) ;                
  515.  
  516.     //    add parameter - the window to print
  517.  
  518.     if (err==noErr) 
  519.         err = AEPutParamDesc(&printCommandEvent, keyDirectObject, &frontWinObj);
  520.         
  521.     if (err==noErr)
  522.     {
  523.         sendModeFlags = kAENoReply;
  524.         if (useDialog)
  525.             sendModeFlags = sendModeFlags + kAEAlwaysInteract;
  526.         else
  527.             sendModeFlags = sendModeFlags + kAENeverInteract;
  528.         err = AESend(&printCommandEvent,&ignoreReply,sendModeFlags,kAEHighPriority,10000,nil, nil);
  529.     }
  530.     
  531.     if (printCommandEvent.dataHandle)
  532.         ignoreErr = AEDisposeDesc(&printCommandEvent);
  533.     
  534.     if (frontWinObj.dataHandle) 
  535.         err = AEDisposeDesc(&frontWinObj);
  536.         
  537.     if (selfAddr.dataHandle) 
  538.         err = AEDisposeDesc(&selfAddr);
  539.         
  540. } // IssuePrintWindow
  541.  
  542. OSErr    IssueAEOpenDoc(FSSpec myFSSpec)
  543. // send OpenDocs AppleEvent to myself, with a one-element list
  544. // containing the given file spec
  545. //
  546. // NOTES : the core AEOpenDocs event is defined as taking a list of
  547. //        aliases (not file specs) as its direct parameter.  However,
  548. //        we can send the file spec instead and depend on AppleEvents'
  549. //        automatic coercion.  In fact, we don't really even have to put 
  550. //        in a list; AppleEvents will coerce a descriptor into a 1-element
  551. //        list if called for.  In this routine, though, we'll make the
  552. //        list for demonstration purposes.
  553. {
  554.     AppleEvent    myAppleEvent;
  555.     AppleEvent    defReply;
  556.     AEDescList    docList;
  557.     AEAddressDesc selfAddr;
  558.     OSErr         myErr;
  559.     OSErr         ignoreErr;
  560.     
  561.     myAppleEvent.dataHandle = nil;
  562.     docList.dataHandle  = nil;
  563.     selfAddr.dataHandle = nil;
  564.     defReply.dataHandle = nil;
  565.         
  566.     //    Create empty list and add one file spec
  567.  
  568.     myErr = AECreateList(nil,0,false, &docList);
  569.     
  570.     if (myErr==noErr) 
  571.         myErr = AEPutPtr(&docList,1,typeFSS,(Ptr)&myFSSpec,sizeof(myFSSpec));
  572.         
  573.     //    Create a self address to send it to
  574.  
  575.     if (myErr==noErr) 
  576.         myErr = MakeSelfAddress(&selfAddr);
  577.         
  578.     if (myErr==noErr) 
  579.         myErr = AECreateAppleEvent(kCoreEventClass, kAEOpenDocuments, &selfAddr,
  580.                                 kAutoGenerateReturnID,  kAnyTransactionID, &myAppleEvent);
  581.  
  582.     //    Put Params into our event and send it
  583.  
  584.     if (myErr == noErr) 
  585.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &docList);
  586.  
  587.     myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract, kAENormalPriority,
  588.                                                                      kAEDefaultTimeout, nil, nil);
  589.         
  590.     if (selfAddr.dataHandle) 
  591.         ignoreErr = AEDisposeDesc(&selfAddr);
  592.         
  593.     if (myAppleEvent.dataHandle) 
  594.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  595.         
  596.     if (docList.dataHandle) 
  597.         ignoreErr = AEDisposeDesc(&docList);
  598.         
  599.     return(myErr);
  600.     
  601. } // IssueAEOpenDoc
  602.  
  603. void    IssueAENewWindow(void)
  604. // send the New Element event to myself with a null container
  605. {
  606.     AppleEvent    myAppleEvent;
  607.     AppleEvent    defReply;
  608.     AEAddressDesc selfAddr;
  609.     OSErr         myErr;
  610.     OSErr         ignoreErr;
  611.     DescType      elemClass;
  612.     
  613.     myAppleEvent.dataHandle = nil;
  614.     
  615.     //    Create the address of us
  616.     
  617.     myErr = MakeSelfAddress(&selfAddr);
  618.     
  619.     //    create event 
  620.     
  621.     myErr = AECreateAppleEvent(kAECoreSuite, kAECreateElement, &selfAddr,
  622.                                     kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  623.     
  624.     //    attach desired class of new element
  625.     
  626.     elemClass = cWindow;
  627.     
  628.     if (myErr == noErr) 
  629.         myErr = AEPutParamPtr(&myAppleEvent, keyAEObjectClass, typeType,
  630.                                         (Ptr)&elemClass, sizeof(elemClass));
  631.         
  632.     //    send the event 
  633.     
  634.     if (myErr == noErr) 
  635.         myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  636.                             kAENormalPriority, kAEDefaultTimeout, nil, nil);
  637.     //    Clean up - reply never created so don't throw away
  638.  
  639.     if (selfAddr.dataHandle) 
  640.         ignoreErr = AEDisposeDesc(&selfAddr);
  641.         
  642.     if (myAppleEvent.dataHandle) 
  643.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  644.                 
  645. } // IssueAENewWindow
  646.  
  647. OSErr    IssueSaveCommand(WindowPtr theWindow, FSSpecPtr where)
  648. // send an AppleEvent Save Event to myself
  649. {
  650.     AEDesc        windowObj;
  651.     AppleEvent    myAppleEvent;
  652.     AppleEvent    defReply;
  653.     OSErr         myErr;
  654.     OSErr         ignoreErr;
  655.     AEAddressDesc selfAddr;
  656.         
  657.     windowObj.dataHandle = nil;
  658.     myAppleEvent.dataHandle = nil;
  659.     
  660.     myErr = MakeWindowObj(theWindow, &windowObj);
  661.             
  662.     if (myErr==noErr) 
  663.         myErr = MakeSelfAddress(&selfAddr);
  664.     
  665.         //    Build event
  666.  
  667.     if (myErr == noErr) 
  668.         myErr = AECreateAppleEvent(kAECoreSuite, kAESave, &selfAddr,
  669.                             kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  670.   
  671.         //    say which window
  672.  
  673.     if (myErr==noErr) 
  674.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &windowObj);
  675.  
  676.         //    add optional file param if we need to
  677.  
  678.     if (where) 
  679.         if (myErr==noErr) 
  680.             myErr = AEPutParamPtr(&myAppleEvent, keyAEDestination, typeFSS,
  681.                                                     (Ptr)where, sizeof(FSSpec));
  682.     
  683.         // send the event
  684.  
  685.     if (myErr==noErr) 
  686.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  687.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  688.       
  689.     if (selfAddr.dataHandle) 
  690.         ignoreErr = AEDisposeDesc(&selfAddr);
  691.       
  692.     if (windowObj.dataHandle) 
  693.         ignoreErr = AEDisposeDesc(&windowObj);
  694.         
  695.     if (myAppleEvent.dataHandle) 
  696.         myErr = AEDisposeDesc(&myAppleEvent);
  697.         
  698.     return(myErr);
  699. }    // IssueSaveCommand
  700.  
  701. OSErr    IssueRevertCommand(WindowPtr theWindow)
  702.     // send an AppleEvent Revert Event to myself
  703. {
  704.     AEDesc        windowObj;
  705.     AppleEvent    myAppleEvent;
  706.     AppleEvent    defReply;
  707.     OSErr         myErr;
  708.     OSErr         ignoreErr;
  709.     AEAddressDesc selfAddr;
  710.     
  711.     windowObj.dataHandle = nil;
  712.     myAppleEvent.dataHandle = nil;
  713.     
  714.     myErr = MakeWindowObj(theWindow, &windowObj);
  715.                 
  716.     if (myErr==noErr) 
  717.         myErr = MakeSelfAddress(&selfAddr);
  718.         
  719.     // Build event
  720.     
  721.     if (myErr == noErr) 
  722.         myErr  = AECreateAppleEvent(kAEMiscStandards, kAERevert, &selfAddr,
  723.                                     kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  724.     // say which window
  725.     
  726.     if (myErr == noErr) 
  727.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &windowObj);
  728.     //    send the event
  729.  
  730.     if (myErr==noErr) 
  731.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  732.                                 kAENormalPriority, kAEDefaultTimeout, nil, nil);
  733.         
  734.     if (windowObj.dataHandle) 
  735.         ignoreErr = AEDisposeDesc(&windowObj);
  736.         
  737.     if (myAppleEvent.dataHandle) 
  738.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  739.         
  740.     if (selfAddr.dataHandle) 
  741.         ignoreErr = AEDisposeDesc(&selfAddr);
  742.         
  743.     return(myErr);
  744. } // IssueRevertCommand
  745.  
  746. // ----------------------------------------------------
  747. //    Name :         IssueQuitCommand
  748. //    Purpose :    Sends self a Quit AppleEvent
  749. // ----------------------------------------------------
  750. OSErr    IssueQuitCommand(void)
  751. {
  752.     AppleEvent    myAppleEvent;
  753.     AppleEvent    defReply;
  754.     OSErr         myErr;
  755.     OSErr         ignoreErr;
  756.     AEAddressDesc selfAddr;
  757.     DescType      mySaveOpt;
  758.     
  759.     myAppleEvent.dataHandle = nil;
  760.     selfAddr.dataHandle     = nil;
  761.                         
  762.     myErr = MakeSelfAddress(&selfAddr);
  763.         
  764.     //    Build event
  765.     
  766.     if (myErr == noErr) 
  767.         myErr  = AECreateAppleEvent(kCoreEventClass, kAEQuitApplication, &selfAddr,
  768.                                         kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  769.     //    say which save option
  770.     
  771.     mySaveOpt = kAEAsk;
  772.     
  773.     if (myErr == noErr) 
  774.         myErr = AEPutParamPtr(&myAppleEvent, keyAESaveOptions, typeEnumerated,
  775.                                                 (Ptr)&mySaveOpt, sizeof(mySaveOpt));
  776.     //    send the event
  777.  
  778.     if (myErr==noErr) 
  779.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract,
  780.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  781.                     
  782.     if (myAppleEvent.dataHandle) 
  783.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  784.         
  785.     if (selfAddr.dataHandle) 
  786.         ignoreErr = AEDisposeDesc(&selfAddr);
  787.         
  788.     return(myErr);
  789. } // IssueQuitCommand
  790.  
  791. #define kOK 1
  792. #define kCancel 2
  793. #define kOtherSize 4
  794. #define kOutlineItem 5
  795.  
  796. Boolean    PoseSizeDialog(long *whatSize)
  797. {
  798.     GrafPtr   savedPort;
  799.     DialogPtr aDialog;
  800.     Str255    aString;
  801.     short     itemHit;
  802.  
  803.     GetPort(&savedPort);
  804.     aDialog = GetNewDialog(1004, nil, (WindowPtr)-1);
  805.     ShowWindow(aDialog);
  806.     SetPort(aDialog);
  807.     
  808.     AdornDefaultButton(aDialog, kOutlineItem);
  809.      
  810.         //set the edittext button to contain the right size
  811.     NumToString(*whatSize, aString);
  812.     SetText(aDialog, kOtherSize, aString);
  813.  
  814.     do
  815.     {
  816.         ModalDialog(nil, &itemHit);
  817.     } while ((itemHit!=kOK) && (itemHit!=kCancel));
  818.     
  819.     if (itemHit == kOK) 
  820.         RetrieveText(aDialog, kOtherSize, aString);
  821.  
  822.     DisposDialog(aDialog);
  823.     SetPort(savedPort);
  824.     
  825.     if (itemHit == kOK) 
  826.     {
  827.         // set the new size of the text
  828.         StringToNum(aString, whatSize);
  829.         if ((*whatSize<1) || (*whatSize>2000)) 
  830.             *whatSize = 12;
  831.     }
  832.  
  833.     return(itemHit == kOK);
  834. }
  835.  
  836. void    IssueSizeCommand(DPtr theDocument,short theItem)
  837. {
  838.     Str255        name;
  839.     AEDesc        sizeDesc;
  840.     AEAddressDesc theAddress;
  841.     OSErr         err;
  842.     AEDesc        selTextObj;
  843.     
  844.         // Vars to do with menu processing
  845.     short     lastSize;
  846.     short     upItem;
  847.     short     downItem;
  848.     short     otherItem;
  849.     long      theSize;
  850.     TextStyle theStyle;
  851.     short     lineHeight;
  852.     short     fontAscent;
  853.         
  854.     err = MakeSelfAddress(&theAddress);
  855.     
  856.     err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);        
  857.  
  858.         // check if the item is on the Size menu
  859.         // remembering that we can add and delete items from it
  860.     lastSize  = CountMItems(myMenus[sizeM]) - 5;
  861.     upItem    = lastSize + 2;
  862.     downItem  = upItem + 1;
  863.     otherItem = downItem + 2;
  864.   
  865.     TEGetStyle((**(theDocument->theText)).selStart, &theStyle, &lineHeight,
  866.                                             &fontAscent, theDocument->theText);
  867.     
  868.     GetItem(myMenus[sizeM], theItem, name);
  869.  
  870.     if (theItem <= lastSize)
  871.     {
  872.         GetItem(myMenus[sizeM], theItem, name);
  873.         StringToNum(name, &theSize);
  874.     }
  875.     else if (theItem == upItem)  
  876.         theSize = theStyle.tsSize + 1;
  877.     else if (theItem == downItem)
  878.         theSize = theStyle.tsSize - 1;
  879.     else if (theItem == otherItem) 
  880.     {
  881.         theSize = theStyle.tsSize;
  882.         if (!PoseSizeDialog(&theSize))
  883.             return;
  884.     }
  885.  
  886.     if (err==noErr)
  887.         err = CreateOffsetDescriptor(theSize, &sizeDesc);
  888.     
  889.     if (err==noErr)
  890.         err = SendAESetObjProp(&selTextObj, pPointSize, &sizeDesc, &theAddress);
  891. } // IssueSizeCommand
  892.  
  893. void    IssueStyleCommand(DPtr theDocument, short theItem)
  894. {
  895.     Style         theFace;
  896.     OSErr         err;
  897.     AEDesc        result;
  898.     AEAddressDesc selfAddr;
  899.     AEDesc        selTextObj;
  900.     TextStyle     theStyle;
  901.     short         lineHeight;
  902.     short         fontAscent;
  903.         
  904.     TEGetStyle((**(theDocument->theText)).selStart, &theStyle,
  905.                     &lineHeight, &fontAscent, theDocument->theText);
  906.     
  907.     theFace = 0;
  908.  
  909.     switch (theItem)
  910.     {
  911.         case cPlain:
  912.             theFace = 0;
  913.             break;
  914.         case cBold:
  915.             theFace = bold;
  916.             break;
  917.         case cItalic:
  918.             theFace = italic;
  919.             break;
  920.         case cUnderline:
  921.             theFace = underline;
  922.             break;
  923.         case cOutline:
  924.             theFace = outline;
  925.             break;
  926.         case cShadow:
  927.             theFace = shadow;
  928.             break;
  929.         case cCondense:
  930.             theFace = condense;
  931.             break;
  932.         case cExtend:
  933.             theFace = extend;
  934.             break;
  935.     } // of switch
  936.  
  937.     if (theFace==0)
  938.         err = BuildTypeTextStylesDesc(0, bold+italic+underline+outline+shadow+condense+extend, &result);
  939.     else if (theFace & theStyle.tsFace)
  940.         err = BuildTypeTextStylesDesc(0, theFace, &result);
  941.     else
  942.         err = BuildTypeTextStylesDesc(theFace, 0, &result);
  943.     
  944.     err = MakeSelfAddress(&selfAddr);
  945.     
  946.     if (err==noErr)
  947.         err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);
  948.     
  949.     if (err==noErr)
  950.         err = SendAESetObjProp(&selTextObj, pTextStyles, &result, &selfAddr);
  951. } // IssueStyleCommand
  952.  
  953.  
  954. OSErr    IssueSetDataObjToBufferContents(const AEDesc* theObj)
  955. { 
  956.     OSErr            myErr;
  957.     OSErr            ignoreErr;
  958.     AEAddressDesc    theAddress;
  959.     AppleEvent        myAppleEvent;
  960.     AppleEvent        defReply;
  961.  
  962.     myErr = MakeSelfAddress(&theAddress);
  963.     
  964.     // create event
  965.     
  966.     if (myErr==noErr)
  967.         myErr = AECreateAppleEvent(kAECoreSuite, kAESetData, &theAddress,
  968.                                                         0, 0, &myAppleEvent);
  969.         
  970.     // add prop obj spec to the event
  971.     
  972.     if (myErr==noErr)
  973.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, theObj);
  974.     
  975.     // add prop data to the event
  976.     
  977.     if (myErr==noErr)
  978.         myErr = AEPutParamPtr(&myAppleEvent, keyAEData, typeChar,
  979.                                     (Ptr)gTypingBuffer, gCharsInBuffer);
  980.                                                     
  981.     // send event
  982.     
  983.     if (myErr==noErr)
  984.      if (gRecordingImplemented)
  985.          myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEDontExecute,
  986.                                      kAENormalPriority, kAEDefaultTimeout, nil, nil);
  987.  
  988.     if (theAddress.dataHandle)
  989.         ignoreErr = AEDisposeDesc(&theAddress);
  990.         
  991.     if (myAppleEvent.dataHandle)
  992.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  993.         
  994.     return(myErr);
  995. }
  996.  
  997. void    AddKeyToTypingBuffer(DPtr theDocument, char theKey)
  998. {
  999.     OSErr myErr;
  1000.     OSErr ignoreErr;
  1001.     
  1002.     if (theKey==BS || theKey==FS || theKey==GS || theKey==RS || theKey==US)
  1003.     {
  1004.         FlushAndRecordTypingBuffer();
  1005.         if (theKey==BS)
  1006.         {
  1007.             if ((**theDocument->theText).selStart!=(**theDocument->theText).selEnd)
  1008.             {
  1009.                 myErr = MakeTextObj(theDocument->theWindow,
  1010.                                     (**theDocument->theText).selStart,
  1011.                                     (**theDocument->theText).selEnd,
  1012.                                     &gTypingTargetObject);
  1013.             }
  1014.             else
  1015.             {
  1016.                 myErr = MakeTextObj(theDocument->theWindow,
  1017.                                     (**theDocument->theText).selStart-1,
  1018.                                     (**theDocument->theText).selStart,
  1019.                                     &gTypingTargetObject);
  1020.             }
  1021.                 
  1022.             myErr = IssueSetDataObjToBufferContents(&gTypingTargetObject);
  1023.             
  1024.             ignoreErr = AEDisposeDesc(&gTypingTargetObject);
  1025.             
  1026.             gTypingTargetObject.dataHandle = nil;
  1027.         }
  1028.     }
  1029.     else
  1030.     {
  1031.         if (gCharsInBuffer==0)
  1032.             myErr = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText,
  1033.                                                                     &gTypingTargetObject);
  1034.  
  1035.         gTypingBuffer[gCharsInBuffer++] = theKey;
  1036.     }
  1037. }
  1038.  
  1039. void    FlushAndRecordTypingBuffer(void)
  1040. { 
  1041.     OSErr  myErr;
  1042.     OSErr  ignoreErr;
  1043.  
  1044.     if (gCharsInBuffer != 0)
  1045.     {
  1046.         myErr = IssueSetDataObjToBufferContents(&gTypingTargetObject);
  1047.         
  1048.         if (gTypingTargetObject.dataHandle)
  1049.             ignoreErr = AEDisposeDesc(&gTypingTargetObject);
  1050.     }
  1051.         
  1052.     gCharsInBuffer = 0;
  1053.     gTypingTargetObject.dataHandle = 0;
  1054. }
  1055.  
  1056.     
  1057. void    StyleTokConst(short theStyleItem, DescType *thekConst)
  1058. {
  1059.     switch (theStyleItem)
  1060.     {
  1061.         case bold:
  1062.             *thekConst = kAEBold;
  1063.             break;
  1064.             
  1065.         case italic:
  1066.             *thekConst = kAEItalic;
  1067.             break;
  1068.             
  1069.         case underline:
  1070.             *thekConst = kAEUnderline;
  1071.             break;
  1072.             
  1073.         case outline:
  1074.             *thekConst = kAEOutline;
  1075.             break;
  1076.             
  1077.         case shadow:
  1078.             *thekConst = kAEShadow;
  1079.             break;
  1080.             
  1081.         case condense:
  1082.             *thekConst = kAECondensed;
  1083.             break;
  1084.             
  1085.         case extend:
  1086.             *thekConst = kAEExpanded;
  1087.             break;
  1088.     }
  1089. } // StyleTokConst
  1090.  
  1091. OSErr    BuildTypeTextStylesDesc(Style onStyles, Style offStyles, AEDesc *resultDesc)
  1092. {
  1093.  
  1094.     OSErr     myErr;
  1095.     OSErr     ignoreErr;
  1096.     short     myStyleItem;
  1097.     DescType  styleConst;
  1098.     AEDesc    onStylesDesc;
  1099.     AEDesc    offStylesDesc;
  1100.     AEDesc    dataDesc;
  1101.     
  1102.     onStylesDesc.dataHandle  = nil;
  1103.     offStylesDesc.dataHandle = nil;
  1104.     dataDesc.dataHandle  = nil;
  1105.  
  1106.     myErr = AECreateList(nil, 0, true,  &dataDesc);
  1107.     
  1108.     myErr = AECreateList(nil, 0, false, &onStylesDesc);
  1109.     myErr = AECreateList(nil, 0, false, &offStylesDesc);
  1110.     
  1111.     for (myStyleItem = bold; myStyleItem<=extend; myStyleItem = myStyleItem <<1)
  1112.         if (myErr==noErr)
  1113.         {
  1114.             StyleTokConst(myStyleItem, &styleConst);
  1115.             if (myStyleItem & onStyles)
  1116.                 myErr = AEPutPtr(&onStylesDesc,
  1117.                                     0,                // add to end of list
  1118.                                     typeEnumerated, // text for style name
  1119.                                     (Ptr)&styleConst,
  1120.                                     sizeof(styleConst));
  1121.             
  1122.             if (myStyleItem & offStyles)
  1123.                 myErr = AEPutPtr(&offStylesDesc,
  1124.                                     0,                // add to end of list
  1125.                                     typeEnumerated, // text for style name
  1126.                                     (Ptr)&styleConst,
  1127.                                     sizeof(styleConst));
  1128.         }
  1129.     
  1130.     if (myErr==noErr)
  1131.         myErr = AEPutKeyDesc(&dataDesc, keyAEOnStyles,  &onStylesDesc);
  1132.     
  1133.     if (myErr==noErr)
  1134.         myErr = AEPutKeyDesc(&dataDesc, keyAEOffStyles, &offStylesDesc);
  1135.     
  1136.     if (myErr==noErr)
  1137.         myErr = AECoerceDesc(&dataDesc, typeTextStyles, resultDesc);
  1138.         
  1139.     if (onStylesDesc.dataHandle)
  1140.         ignoreErr = AEDisposeDesc(&onStylesDesc);
  1141.         
  1142.     if (offStylesDesc.dataHandle)
  1143.         ignoreErr = AEDisposeDesc(&offStylesDesc);
  1144.         
  1145.     if (dataDesc.dataHandle)
  1146.         ignoreErr = AEDisposeDesc(&dataDesc);
  1147.  
  1148.     return(myErr);
  1149. }
  1150.  
  1151. OSErr    BuildTextStylesDesc(Style theStyle, AEDesc *resultDesc)
  1152. {
  1153.     short     myStyleItem;
  1154.     Style     onStyles;
  1155.     Style     offStyles;
  1156.             
  1157.     onStyles  = 0;
  1158.     offStyles = 0;
  1159.     
  1160.     for (myStyleItem = bold; myStyleItem<=extend; myStyleItem = myStyleItem <<1)
  1161.     {
  1162.         if (myStyleItem & theStyle)
  1163.             onStyles  = onStyles  + myStyleItem;
  1164.         else
  1165.             offStyles = offStyles + myStyleItem;
  1166.     }
  1167.  
  1168.     return(BuildTypeTextStylesDesc(onStyles, offStyles, resultDesc));
  1169.     
  1170. } // BuildTextStylesDesc
  1171.         
  1172. OSErr    BuildStyledTextDesc(TEHandle theHTE, short start, short howLong, AEDesc *resultDesc)
  1173. {
  1174.     AEDesc       listDesc;
  1175.     short        oldSelStart;
  1176.     short        oldSelEnd;
  1177.     StScrpHandle myStScrpHandle;
  1178.     OSErr        myErr;
  1179.     OSErr        ignoreErr;
  1180.     
  1181.     listDesc.dataHandle = nil;
  1182.     
  1183.     oldSelStart = (**theHTE).selStart;
  1184.     oldSelEnd   = (**theHTE).selEnd;
  1185.     
  1186.     TESetSelect(start-1, start+howLong-2, theHTE);
  1187.     
  1188.     myErr = AECreateList(nil, 0, true,  &listDesc);
  1189.     
  1190.     HLock((Handle)(**theHTE).hText);
  1191.                                                      
  1192.     if (myErr == noErr)
  1193.         myErr = AEPutKeyPtr(&listDesc, keyAEText, typeChar,
  1194.                             (Ptr)&(*(**theHTE).hText)[start-1], howLong);
  1195.                                                 
  1196.     HUnlock((Handle)(**theHTE).hText);
  1197.     
  1198.     myStScrpHandle = GetStylScrap(theHTE);
  1199.     
  1200.     if (myStScrpHandle)
  1201.     {
  1202.         HLock((Handle)myStScrpHandle);
  1203.         
  1204.         if (myErr==noErr)
  1205.             myErr = AEPutKeyPtr(&listDesc, keyAEStyles, typeScrapStyles,
  1206.                                     (Ptr)*myStScrpHandle, GetHandleSize((Handle)myStScrpHandle));
  1207.             
  1208.         HUnlock((Handle)myStScrpHandle);
  1209.     }    
  1210.     else
  1211.         myErr = AEPutKeyPtr(&listDesc, keyAEStyles, typeScrapStyles, (Ptr)nil, 0);
  1212.     
  1213.     if (myErr==noErr)
  1214.         myErr = AECoerceDesc(&listDesc, typeStyledText, resultDesc); // should be typeIntlText
  1215.     
  1216.     if (listDesc.dataHandle)
  1217.         ignoreErr = AEDisposeDesc(&listDesc);
  1218.     
  1219.     TESetSelect(oldSelStart, oldSelEnd, theHTE);
  1220.     
  1221.     return(myErr);
  1222. }
  1223.